submodule_sin_real64.f90 Source File


Source Code

submodule (taylor_series_fortran) imp_taylor_series_sin_real64

    implicit none


    real(real64), parameter :: coefficient000 =   0.0_real64
    real(real64), parameter :: coefficient001 =   1.0_real64
    real(real64), parameter :: coefficient002 =   0.0_real64
    real(real64), parameter :: coefficient003 = - coefficient001 / (  2 *   3)
    real(real64), parameter :: coefficient004 =   0.0_real64
    real(real64), parameter :: coefficient005 = - coefficient003 / (  4 *   5)
    real(real64), parameter :: coefficient006 =   0.0_real64
    real(real64), parameter :: coefficient007 = - coefficient005 / (  6 *   7)
    real(real64), parameter :: coefficient008 =   0.0_real64
    real(real64), parameter :: coefficient009 = - coefficient007 / (  8 *   9)
    real(real64), parameter :: coefficient010 =   0.0_real64
    real(real64), parameter :: coefficient011 = - coefficient009 / ( 10 *  11)
    real(real64), parameter :: coefficient012 =   0.0_real64
    real(real64), parameter :: coefficient013 = - coefficient011 / ( 12 *  13)
    real(real64), parameter :: coefficient014 =   0.0_real64
    real(real64), parameter :: coefficient015 = - coefficient013 / ( 14 *  15)
    real(real64), parameter :: coefficient016 =   0.0_real64
    real(real64), parameter :: coefficient017 = - coefficient015 / ( 16 *  17)
    real(real64), parameter :: coefficient018 =   0.0_real64
    real(real64), parameter :: coefficient019 = - coefficient017 / ( 18 *  19)
    real(real64), parameter :: coefficient020 =   0.0_real64
    real(real64), parameter :: coefficient021 = - coefficient019 / ( 20 *  21)
    real(real64), parameter :: coefficient022 =   0.0_real64
    real(real64), parameter :: coefficient023 = - coefficient021 / ( 22 *  23)
    real(real64), parameter :: coefficient024 =   0.0_real64
    real(real64), parameter :: coefficient025 = - coefficient023 / ( 24 *  25)
    real(real64), parameter :: coefficient026 =   0.0_real64
    real(real64), parameter :: coefficient027 = - coefficient025 / ( 26 *  27)
    real(real64), parameter :: coefficient028 =   0.0_real64
    real(real64), parameter :: coefficient029 = - coefficient027 / ( 28 *  29)
    real(real64), parameter :: coefficient030 =   0.0_real64
    real(real64), parameter :: coefficient031 = - coefficient029 / ( 30 *  31)
    real(real64), parameter :: coefficient032 =   0.0_real64
    real(real64), parameter :: coefficient033 = - coefficient031 / ( 32 *  33)
    real(real64), parameter :: coefficient034 =   0.0_real64
    real(real64), parameter :: coefficient035 = - coefficient033 / ( 34 *  35)
    real(real64), parameter :: coefficient036 =   0.0_real64
    real(real64), parameter :: coefficient037 = - coefficient035 / ( 36 *  37)
    real(real64), parameter :: coefficient038 =   0.0_real64
    real(real64), parameter :: coefficient039 = - coefficient037 / ( 38 *  39)
    real(real64), parameter :: coefficient040 =   0.0_real64
    real(real64), parameter :: coefficient041 = - coefficient039 / ( 40 *  41)
    real(real64), parameter :: coefficient042 =   0.0_real64
    real(real64), parameter :: coefficient043 = - coefficient041 / ( 42 *  43)
    real(real64), parameter :: coefficient044 =   0.0_real64
    real(real64), parameter :: coefficient045 = - coefficient043 / ( 44 *  45)
    real(real64), parameter :: coefficient046 =   0.0_real64
    real(real64), parameter :: coefficient047 = - coefficient045 / ( 46 *  47)
    real(real64), parameter :: coefficient048 =   0.0_real64
    real(real64), parameter :: coefficient049 = - coefficient047 / ( 48 *  49)
    real(real64), parameter :: coefficient050 =   0.0_real64
    real(real64), parameter :: coefficient051 = - coefficient049 / ( 50 *  51)
    real(real64), parameter :: coefficient052 =   0.0_real64
    real(real64), parameter :: coefficient053 = - coefficient051 / ( 52 *  53)
    real(real64), parameter :: coefficient054 =   0.0_real64
    real(real64), parameter :: coefficient055 = - coefficient053 / ( 54 *  55)
    real(real64), parameter :: coefficient056 =   0.0_real64
    real(real64), parameter :: coefficient057 = - coefficient055 / ( 56 *  57)
    real(real64), parameter :: coefficient058 =   0.0_real64
    real(real64), parameter :: coefficient059 = - coefficient057 / ( 58 *  59)
    real(real64), parameter :: coefficient060 =   0.0_real64
    real(real64), parameter :: coefficient061 = - coefficient059 / ( 60 *  61)
    real(real64), parameter :: coefficient062 =   0.0_real64
    real(real64), parameter :: coefficient063 = - coefficient061 / ( 62 *  63)
    real(real64), parameter :: coefficient064 =   0.0_real64
    real(real64), parameter :: coefficient065 = - coefficient063 / ( 64 *  65)
    real(real64), parameter :: coefficient066 =   0.0_real64
    real(real64), parameter :: coefficient067 = - coefficient065 / ( 66 *  67)
    real(real64), parameter :: coefficient068 =   0.0_real64
    real(real64), parameter :: coefficient069 = - coefficient067 / ( 68 *  69)
    real(real64), parameter :: coefficient070 =   0.0_real64
    real(real64), parameter :: coefficient071 = - coefficient069 / ( 70 *  71)
    real(real64), parameter :: coefficient072 =   0.0_real64
    real(real64), parameter :: coefficient073 = - coefficient071 / ( 72 *  73)
    real(real64), parameter :: coefficient074 =   0.0_real64
    real(real64), parameter :: coefficient075 = - coefficient073 / ( 74 *  75)
    real(real64), parameter :: coefficient076 =   0.0_real64
    real(real64), parameter :: coefficient077 = - coefficient075 / ( 76 *  77)
    real(real64), parameter :: coefficient078 =   0.0_real64
    real(real64), parameter :: coefficient079 = - coefficient077 / ( 78 *  79)
    real(real64), parameter :: coefficient080 =   0.0_real64
    real(real64), parameter :: coefficient081 = - coefficient079 / ( 80 *  81)
    real(real64), parameter :: coefficient082 =   0.0_real64
    real(real64), parameter :: coefficient083 = - coefficient081 / ( 82 *  83)
    real(real64), parameter :: coefficient084 =   0.0_real64
    real(real64), parameter :: coefficient085 = - coefficient083 / ( 84 *  85)
    real(real64), parameter :: coefficient086 =   0.0_real64
    real(real64), parameter :: coefficient087 = - coefficient085 / ( 86 *  87)
    real(real64), parameter :: coefficient088 =   0.0_real64
    real(real64), parameter :: coefficient089 = - coefficient087 / ( 88 *  89)
    real(real64), parameter :: coefficient090 =   0.0_real64
    real(real64), parameter :: coefficient091 = - coefficient089 / ( 90 *  91)
    real(real64), parameter :: coefficient092 =   0.0_real64
    real(real64), parameter :: coefficient093 = - coefficient091 / ( 92 *  93)
    real(real64), parameter :: coefficient094 =   0.0_real64
    real(real64), parameter :: coefficient095 = - coefficient093 / ( 94 *  95)
    real(real64), parameter :: coefficient096 =   0.0_real64
    real(real64), parameter :: coefficient097 = - coefficient095 / ( 96 *  97)
    real(real64), parameter :: coefficient098 =   0.0_real64
    real(real64), parameter :: coefficient099 = - coefficient097 / ( 98 *  99)
    real(real64), parameter :: coefficient100 =   0.0_real64
    real(real64), parameter :: coefficient101 = - coefficient099 / (100 * 101)
    real(real64), parameter :: coefficient102 =   0.0_real64
    real(real64), parameter :: coefficient103 = - coefficient101 / (102 * 103)
    real(real64), parameter :: coefficient104 =   0.0_real64
    real(real64), parameter :: coefficient105 = - coefficient103 / (104 * 105)
    real(real64), parameter :: coefficient106 =   0.0_real64
    real(real64), parameter :: coefficient107 = - coefficient105 / (106 * 107)
    real(real64), parameter :: coefficient108 =   0.0_real64
    real(real64), parameter :: coefficient109 = - coefficient107 / (108 * 109)
    real(real64), parameter :: coefficient110 =   0.0_real64
    real(real64), parameter :: coefficient111 = - coefficient109 / (110 * 111)
    real(real64), parameter :: coefficient112 =   0.0_real64
    real(real64), parameter :: coefficient113 = - coefficient111 / (112 * 113)
    real(real64), parameter :: coefficient114 =   0.0_real64
    real(real64), parameter :: coefficient115 = - coefficient113 / (114 * 115)
    real(real64), parameter :: coefficient116 =   0.0_real64
    real(real64), parameter :: coefficient117 = - coefficient115 / (116 * 117)
    real(real64), parameter :: coefficient118 =   0.0_real64
    real(real64), parameter :: coefficient119 = - coefficient117 / (118 * 119)
    real(real64), parameter :: coefficient120 =   0.0_real64
    real(real64), parameter :: coefficient121 = - coefficient119 / (120 * 121)
    real(real64), parameter :: coefficient122 =   0.0_real64
    real(real64), parameter :: coefficient123 = - coefficient121 / (122 * 123)
    real(real64), parameter :: coefficient124 =   0.0_real64
    real(real64), parameter :: coefficient125 = - coefficient123 / (124 * 125)
    real(real64), parameter :: coefficient126 =   0.0_real64
    real(real64), parameter :: coefficient127 = - coefficient125 / (126 * 127)
    real(real64), parameter :: coefficient128 =   0.0_real64
    real(real64), parameter :: coefficient129 = - coefficient127 / (128 * 129)
    real(real64), parameter :: coefficient130 =   0.0_real64
    real(real64), parameter :: coefficient131 = - coefficient129 / (130 * 131)
    real(real64), parameter :: coefficient132 =   0.0_real64
    real(real64), parameter :: coefficient133 = - coefficient131 / (132 * 133)
    real(real64), parameter :: coefficient134 =   0.0_real64
    real(real64), parameter :: coefficient135 = - coefficient133 / (134 * 135)
    real(real64), parameter :: coefficient136 =   0.0_real64
    real(real64), parameter :: coefficient137 = - coefficient135 / (136 * 137)
    real(real64), parameter :: coefficient138 =   0.0_real64
    real(real64), parameter :: coefficient139 = - coefficient137 / (138 * 139)
    real(real64), parameter :: coefficient140 =   0.0_real64
    real(real64), parameter :: coefficient141 = - coefficient139 / (140 * 141)
    real(real64), parameter :: coefficient142 =   0.0_real64
    real(real64), parameter :: coefficient143 = - coefficient141 / (142 * 143)
    real(real64), parameter :: coefficient144 =   0.0_real64
    real(real64), parameter :: coefficient145 = - coefficient143 / (144 * 145)
    real(real64), parameter :: coefficient146 =   0.0_real64
    real(real64), parameter :: coefficient147 = - coefficient145 / (146 * 147)
    real(real64), parameter :: coefficient148 =   0.0_real64
    real(real64), parameter :: coefficient149 = - coefficient147 / (148 * 149)
    real(real64), parameter :: coefficient150 =   0.0_real64
    real(real64), parameter :: coefficient151 = - coefficient149 / (150 * 151)
    real(real64), parameter :: coefficient152 =   0.0_real64
    real(real64), parameter :: coefficient153 = - coefficient151 / (152 * 153)
    real(real64), parameter :: coefficient154 =   0.0_real64
    real(real64), parameter :: coefficient155 = - coefficient153 / (154 * 155)
    real(real64), parameter :: coefficient156 =   0.0_real64
    real(real64), parameter :: coefficient157 = - coefficient155 / (156 * 157)
    real(real64), parameter :: coefficient158 =   0.0_real64
    real(real64), parameter :: coefficient159 = - coefficient157 / (158 * 159)
    real(real64), parameter :: coefficient160 =   0.0_real64
    real(real64), parameter :: coefficient161 = - coefficient159 / (160 * 161)
    real(real64), parameter :: coefficient162 =   0.0_real64
    real(real64), parameter :: coefficient163 = - coefficient161 / (162 * 163)
    real(real64), parameter :: coefficient164 =   0.0_real64
    real(real64), parameter :: coefficient165 = - coefficient163 / (164 * 165)
    real(real64), parameter :: coefficient166 =   0.0_real64
    real(real64), parameter :: coefficient167 = - coefficient165 / (166 * 167)
    real(real64), parameter :: coefficient168 =   0.0_real64
    real(real64), parameter :: coefficient169 = - coefficient167 / (168 * 169)
    real(real64), parameter :: coefficient170 =   0.0_real64
    real(real64), parameter :: coefficient171 = - coefficient169 / (170 * 171)
    real(real64), parameter :: coefficient172 =   0.0_real64
    real(real64), parameter :: coefficient173 = - coefficient171 / (172 * 173)
    real(real64), parameter :: coefficient174 =   0.0_real64
    real(real64), parameter :: coefficient175 = - coefficient173 / (174 * 175)
    real(real64), parameter :: coefficient176 =   0.0_real64
    real(real64), parameter :: coefficient177 = - coefficient175 / (176 * 177)


    contains


    module procedure taylor_series_sin_000_real64

        res = ieee_value( x = x, class = ieee_positive_zero )

    end procedure taylor_series_sin_000_real64


    module procedure taylor_series_sin_001_real64

        res = coefficient000 + x * coefficient001

    end procedure taylor_series_sin_001_real64


    module procedure taylor_series_sin_002_real64

        res = coefficient001 + x * coefficient002
        res = coefficient000 + x * res

    end procedure taylor_series_sin_002_real64


    module procedure taylor_series_sin_003_real64

        res = coefficient002 + x * coefficient003
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_003_real64


    module procedure taylor_series_sin_004_real64

        res = coefficient003 + x * coefficient004
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_004_real64


    module procedure taylor_series_sin_005_real64

        res = coefficient004 + x * coefficient005
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_005_real64


    module procedure taylor_series_sin_006_real64

        res = coefficient005 + x * coefficient006
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_006_real64


    module procedure taylor_series_sin_007_real64

        res = coefficient006 + x * coefficient007
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_007_real64


    module procedure taylor_series_sin_008_real64

        res = coefficient007 + x * coefficient008
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_008_real64


    module procedure taylor_series_sin_009_real64

        res = coefficient008 + x * coefficient009
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_009_real64


    module procedure taylor_series_sin_010_real64

        res = coefficient009 + x * coefficient010
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_010_real64


    module procedure taylor_series_sin_011_real64

        res = coefficient010 + x * coefficient011
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_011_real64


    module procedure taylor_series_sin_012_real64

        res = coefficient011 + x * coefficient012
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_012_real64


    module procedure taylor_series_sin_013_real64

        res = coefficient012 + x * coefficient013
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_013_real64


    module procedure taylor_series_sin_014_real64

        res = coefficient013 + x * coefficient014
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_014_real64


    module procedure taylor_series_sin_015_real64

        res = coefficient014 + x * coefficient015
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_015_real64


    module procedure taylor_series_sin_016_real64

        res = coefficient015 + x * coefficient016
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_016_real64


    module procedure taylor_series_sin_017_real64

        res = coefficient016 + x * coefficient017
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_017_real64


    module procedure taylor_series_sin_018_real64

        res = coefficient017 + x * coefficient018
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_018_real64


    module procedure taylor_series_sin_019_real64

        res = coefficient018 + x * coefficient019
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_019_real64


    module procedure taylor_series_sin_020_real64

        res = coefficient019 + x * coefficient020
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_020_real64


    module procedure taylor_series_sin_021_real64

        res = coefficient020 + x * coefficient021
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_021_real64


    module procedure taylor_series_sin_022_real64

        res = coefficient021 + x * coefficient022
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_022_real64


    module procedure taylor_series_sin_023_real64

        res = coefficient022 + x * coefficient023
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_023_real64


    module procedure taylor_series_sin_024_real64

        res = coefficient023 + x * coefficient024
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_024_real64


    module procedure taylor_series_sin_025_real64

        res = coefficient024 + x * coefficient025
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_025_real64


    module procedure taylor_series_sin_026_real64

        res = coefficient025 + x * coefficient026
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_026_real64


    module procedure taylor_series_sin_027_real64

        res = coefficient026 + x * coefficient027
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_027_real64


    module procedure taylor_series_sin_028_real64

        res = coefficient027 + x * coefficient028
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_028_real64


    module procedure taylor_series_sin_029_real64

        res = coefficient028 + x * coefficient029
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_029_real64


    module procedure taylor_series_sin_030_real64

        res = coefficient029 + x * coefficient030
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_030_real64


    module procedure taylor_series_sin_031_real64

        res = coefficient030 + x * coefficient031
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_031_real64


    module procedure taylor_series_sin_032_real64

        res = coefficient031 + x * coefficient032
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_032_real64


    module procedure taylor_series_sin_033_real64

        res = coefficient032 + x * coefficient033
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_033_real64


    module procedure taylor_series_sin_034_real64

        res = coefficient033 + x * coefficient034
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_034_real64


    module procedure taylor_series_sin_035_real64

        res = coefficient034 + x * coefficient035
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_035_real64


    module procedure taylor_series_sin_036_real64

        res = coefficient035 + x * coefficient036
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_036_real64


    module procedure taylor_series_sin_037_real64

        res = coefficient036 + x * coefficient037
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_037_real64


    module procedure taylor_series_sin_038_real64

        res = coefficient037 + x * coefficient038
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_038_real64


    module procedure taylor_series_sin_039_real64

        res = coefficient038 + x * coefficient039
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_039_real64


    module procedure taylor_series_sin_040_real64

        res = coefficient039 + x * coefficient040
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_040_real64


    module procedure taylor_series_sin_041_real64

        res = coefficient040 + x * coefficient041
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_041_real64


    module procedure taylor_series_sin_042_real64

        res = coefficient041 + x * coefficient042
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_042_real64


    module procedure taylor_series_sin_043_real64

        res = coefficient042 + x * coefficient043
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_043_real64


    module procedure taylor_series_sin_044_real64

        res = coefficient043 + x * coefficient044
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_044_real64


    module procedure taylor_series_sin_045_real64

        res = coefficient044 + x * coefficient045
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_045_real64


    module procedure taylor_series_sin_046_real64

        res = coefficient045 + x * coefficient046
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_046_real64


    module procedure taylor_series_sin_047_real64

        res = coefficient046 + x * coefficient047
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_047_real64


    module procedure taylor_series_sin_048_real64

        res = coefficient047 + x * coefficient048
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_048_real64


    module procedure taylor_series_sin_049_real64

        res = coefficient048 + x * coefficient049
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_049_real64


    module procedure taylor_series_sin_050_real64

        res = coefficient049 + x * coefficient050
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_050_real64


    module procedure taylor_series_sin_051_real64

        res = coefficient050 + x * coefficient051
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_051_real64


    module procedure taylor_series_sin_052_real64

        res = coefficient051 + x * coefficient052
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_052_real64


    module procedure taylor_series_sin_053_real64

        res = coefficient052 + x * coefficient053
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_053_real64


    module procedure taylor_series_sin_054_real64

        res = coefficient053 + x * coefficient054
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_054_real64


    module procedure taylor_series_sin_055_real64

        res = coefficient054 + x * coefficient055
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_055_real64


    module procedure taylor_series_sin_056_real64

        res = coefficient055 + x * coefficient056
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_056_real64


    module procedure taylor_series_sin_057_real64

        res = coefficient056 + x * coefficient057
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_057_real64


    module procedure taylor_series_sin_058_real64

        res = coefficient057 + x * coefficient058
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_058_real64


    module procedure taylor_series_sin_059_real64

        res = coefficient058 + x * coefficient059
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_059_real64


    module procedure taylor_series_sin_060_real64

        res = coefficient059 + x * coefficient060
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_060_real64


    module procedure taylor_series_sin_061_real64

        res = coefficient060 + x * coefficient061
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_061_real64


    module procedure taylor_series_sin_062_real64

        res = coefficient061 + x * coefficient062
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_062_real64


    module procedure taylor_series_sin_063_real64

        res = coefficient062 + x * coefficient063
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_063_real64


    module procedure taylor_series_sin_064_real64

        res = coefficient063 + x * coefficient064
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_064_real64


    module procedure taylor_series_sin_065_real64

        res = coefficient064 + x * coefficient065
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_065_real64


    module procedure taylor_series_sin_066_real64

        res = coefficient065 + x * coefficient066
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_066_real64


    module procedure taylor_series_sin_067_real64

        res = coefficient066 + x * coefficient067
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_067_real64


    module procedure taylor_series_sin_068_real64

        res = coefficient067 + x * coefficient068
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_068_real64


    module procedure taylor_series_sin_069_real64

        res = coefficient068 + x * coefficient069
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_069_real64


    module procedure taylor_series_sin_070_real64

        res = coefficient069 + x * coefficient070
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_070_real64


    module procedure taylor_series_sin_071_real64

        res = coefficient070 + x * coefficient071
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_071_real64


    module procedure taylor_series_sin_072_real64

        res = coefficient071 + x * coefficient072
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_072_real64


    module procedure taylor_series_sin_073_real64

        res = coefficient072 + x * coefficient073
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_073_real64


    module procedure taylor_series_sin_074_real64

        res = coefficient073 + x * coefficient074
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_074_real64


    module procedure taylor_series_sin_075_real64

        res = coefficient074 + x * coefficient075
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_075_real64


    module procedure taylor_series_sin_076_real64

        res = coefficient075 + x * coefficient076
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_076_real64


    module procedure taylor_series_sin_077_real64

        res = coefficient076 + x * coefficient077
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_077_real64


    module procedure taylor_series_sin_078_real64

        res = coefficient077 + x * coefficient078
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_078_real64


    module procedure taylor_series_sin_079_real64

        res = coefficient078 + x * coefficient079
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_079_real64


    module procedure taylor_series_sin_080_real64

        res = coefficient079 + x * coefficient080
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_080_real64


    module procedure taylor_series_sin_081_real64

        res = coefficient080 + x * coefficient081
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_081_real64


    module procedure taylor_series_sin_082_real64

        res = coefficient081 + x * coefficient082
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_082_real64


    module procedure taylor_series_sin_083_real64

        res = coefficient082 + x * coefficient083
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_083_real64


    module procedure taylor_series_sin_084_real64

        res = coefficient083 + x * coefficient084
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_084_real64


    module procedure taylor_series_sin_085_real64

        res = coefficient084 + x * coefficient085
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_085_real64


    module procedure taylor_series_sin_086_real64

        res = coefficient085 + x * coefficient086
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_086_real64


    module procedure taylor_series_sin_087_real64

        res = coefficient086 + x * coefficient087
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_087_real64


    module procedure taylor_series_sin_088_real64

        res = coefficient087 + x * coefficient088
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_088_real64


    module procedure taylor_series_sin_089_real64

        res = coefficient088 + x * coefficient089
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_089_real64


    module procedure taylor_series_sin_090_real64

        res = coefficient089 + x * coefficient090
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_090_real64


    module procedure taylor_series_sin_091_real64

        res = coefficient090 + x * coefficient091
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_091_real64


    module procedure taylor_series_sin_092_real64

        res = coefficient091 + x * coefficient092
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_092_real64


    module procedure taylor_series_sin_093_real64

        res = coefficient092 + x * coefficient093
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_093_real64


    module procedure taylor_series_sin_094_real64

        res = coefficient093 + x * coefficient094
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_094_real64


    module procedure taylor_series_sin_095_real64

        res = coefficient094 + x * coefficient095
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_095_real64


    module procedure taylor_series_sin_096_real64

        res = coefficient095 + x * coefficient096
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_096_real64


    module procedure taylor_series_sin_097_real64

        res = coefficient096 + x * coefficient097
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_097_real64


    module procedure taylor_series_sin_098_real64

        res = coefficient097 + x * coefficient098
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_098_real64


    module procedure taylor_series_sin_099_real64

        res = coefficient098 + x * coefficient099
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_099_real64


    module procedure taylor_series_sin_100_real64

        res = coefficient099 + x * coefficient100
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_100_real64


    module procedure taylor_series_sin_101_real64

        res = coefficient100 + x * coefficient101
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_101_real64


    module procedure taylor_series_sin_102_real64

        res = coefficient101 + x * coefficient102
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_102_real64


    module procedure taylor_series_sin_103_real64

        res = coefficient102 + x * coefficient103
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_103_real64


    module procedure taylor_series_sin_104_real64

        res = coefficient103 + x * coefficient104
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_104_real64


    module procedure taylor_series_sin_105_real64

        res = coefficient104 + x * coefficient105
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_105_real64


    module procedure taylor_series_sin_106_real64

        res = coefficient105 + x * coefficient106
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_106_real64


    module procedure taylor_series_sin_107_real64

        res = coefficient106 + x * coefficient107
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_107_real64


    module procedure taylor_series_sin_108_real64

        res = coefficient107 + x * coefficient108
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_108_real64


    module procedure taylor_series_sin_109_real64

        res = coefficient108 + x * coefficient109
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_109_real64


    module procedure taylor_series_sin_110_real64

        res = coefficient109 + x * coefficient110
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_110_real64


    module procedure taylor_series_sin_111_real64

        res = coefficient110 + x * coefficient111
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_111_real64


    module procedure taylor_series_sin_112_real64

        res = coefficient111 + x * coefficient112
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_112_real64


    module procedure taylor_series_sin_113_real64

        res = coefficient112 + x * coefficient113
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_113_real64


    module procedure taylor_series_sin_114_real64

        res = coefficient113 + x * coefficient114
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_114_real64


    module procedure taylor_series_sin_115_real64

        res = coefficient114 + x * coefficient115
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_115_real64


    module procedure taylor_series_sin_116_real64

        res = coefficient115 + x * coefficient116
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_116_real64


    module procedure taylor_series_sin_117_real64

        res = coefficient116 + x * coefficient117
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_117_real64


    module procedure taylor_series_sin_118_real64

        res = coefficient117 + x * coefficient118
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_118_real64


    module procedure taylor_series_sin_119_real64

        res = coefficient118 + x * coefficient119
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_119_real64


    module procedure taylor_series_sin_120_real64

        res = coefficient119 + x * coefficient120
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_120_real64


    module procedure taylor_series_sin_121_real64

        res = coefficient120 + x * coefficient121
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_121_real64


    module procedure taylor_series_sin_122_real64

        res = coefficient121 + x * coefficient122
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_122_real64


    module procedure taylor_series_sin_123_real64

        res = coefficient122 + x * coefficient123
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_123_real64


    module procedure taylor_series_sin_124_real64

        res = coefficient123 + x * coefficient124
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_124_real64


    module procedure taylor_series_sin_125_real64

        res = coefficient124 + x * coefficient125
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_125_real64


    module procedure taylor_series_sin_126_real64

        res = coefficient125 + x * coefficient126
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_126_real64


    module procedure taylor_series_sin_127_real64

        res = coefficient126 + x * coefficient127
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_127_real64


    module procedure taylor_series_sin_128_real64

        res = coefficient127 + x * coefficient128
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_128_real64


    module procedure taylor_series_sin_129_real64

        res = coefficient128 + x * coefficient129
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_129_real64


    module procedure taylor_series_sin_130_real64

        res = coefficient129 + x * coefficient130
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_130_real64


    module procedure taylor_series_sin_131_real64

        res = coefficient130 + x * coefficient131
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_131_real64


    module procedure taylor_series_sin_132_real64

        res = coefficient131 + x * coefficient132
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_132_real64


    module procedure taylor_series_sin_133_real64

        res = coefficient132 + x * coefficient133
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_133_real64


    module procedure taylor_series_sin_134_real64

        res = coefficient133 + x * coefficient134
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_134_real64


    module procedure taylor_series_sin_135_real64

        res = coefficient134 + x * coefficient135
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_135_real64


    module procedure taylor_series_sin_136_real64

        res = coefficient135 + x * coefficient136
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_136_real64


    module procedure taylor_series_sin_137_real64

        res = coefficient136 + x * coefficient137
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_137_real64


    module procedure taylor_series_sin_138_real64

        res = coefficient137 + x * coefficient138
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_138_real64


    module procedure taylor_series_sin_139_real64

        res = coefficient138 + x * coefficient139
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_139_real64


    module procedure taylor_series_sin_140_real64

        res = coefficient139 + x * coefficient140
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_140_real64


    module procedure taylor_series_sin_141_real64

        res = coefficient140 + x * coefficient141
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_141_real64


    module procedure taylor_series_sin_142_real64

        res = coefficient141 + x * coefficient142
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_142_real64


    module procedure taylor_series_sin_143_real64

        res = coefficient142 + x * coefficient143
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_143_real64


    module procedure taylor_series_sin_144_real64

        res = coefficient143 + x * coefficient144
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_144_real64


    module procedure taylor_series_sin_145_real64

        res = coefficient144 + x * coefficient145
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_145_real64


    module procedure taylor_series_sin_146_real64

        res = coefficient145 + x * coefficient146
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_146_real64


    module procedure taylor_series_sin_147_real64

        res = coefficient146 + x * coefficient147
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_147_real64


    module procedure taylor_series_sin_148_real64

        res = coefficient147 + x * coefficient148
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_148_real64


    module procedure taylor_series_sin_149_real64

        res = coefficient148 + x * coefficient149
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_149_real64


    module procedure taylor_series_sin_150_real64

        res = coefficient149 + x * coefficient150
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_150_real64


    module procedure taylor_series_sin_151_real64

        res = coefficient150 + x * coefficient151
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_151_real64


    module procedure taylor_series_sin_152_real64

        res = coefficient151 + x * coefficient152
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_152_real64


    module procedure taylor_series_sin_153_real64

        res = coefficient152 + x * coefficient153
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_153_real64


    module procedure taylor_series_sin_154_real64

        res = coefficient153 + x * coefficient154
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_154_real64


    module procedure taylor_series_sin_155_real64

        res = coefficient154 + x * coefficient155
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_155_real64


    module procedure taylor_series_sin_156_real64

        res = coefficient155 + x * coefficient156
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_156_real64


    module procedure taylor_series_sin_157_real64

        res = coefficient156 + x * coefficient157
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_157_real64


    module procedure taylor_series_sin_158_real64

        res = coefficient157 + x * coefficient158
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_158_real64


    module procedure taylor_series_sin_159_real64

        res = coefficient158 + x * coefficient159
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_159_real64


    module procedure taylor_series_sin_160_real64

        res = coefficient159 + x * coefficient160
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_160_real64


    module procedure taylor_series_sin_161_real64

        res = coefficient160 + x * coefficient161
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_161_real64


    module procedure taylor_series_sin_162_real64

        res = coefficient161 + x * coefficient162
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_162_real64


    module procedure taylor_series_sin_163_real64

        res = coefficient162 + x * coefficient163
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_163_real64


    module procedure taylor_series_sin_164_real64

        res = coefficient163 + x * coefficient164
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_164_real64


    module procedure taylor_series_sin_165_real64

        res = coefficient164 + x * coefficient165
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_165_real64


    module procedure taylor_series_sin_166_real64

        res = coefficient165 + x * coefficient166
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_166_real64


    module procedure taylor_series_sin_167_real64

        res = coefficient166 + x * coefficient167
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_167_real64


    module procedure taylor_series_sin_168_real64

        res = coefficient167 + x * coefficient168
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_168_real64


    module procedure taylor_series_sin_169_real64

        res = coefficient168 + x * coefficient169
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_169_real64


    module procedure taylor_series_sin_170_real64

        res = coefficient169 + x * coefficient170
        res = coefficient168 + x * res
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_170_real64


    module procedure taylor_series_sin_171_real64

        res = coefficient170 + x * coefficient171
        res = coefficient169 + x * res
        res = coefficient168 + x * res
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_171_real64


    module procedure taylor_series_sin_172_real64

        res = coefficient171 + x * coefficient172
        res = coefficient170 + x * res
        res = coefficient169 + x * res
        res = coefficient168 + x * res
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_172_real64


    module procedure taylor_series_sin_173_real64

        res = coefficient172 + x * coefficient173
        res = coefficient171 + x * res
        res = coefficient170 + x * res
        res = coefficient169 + x * res
        res = coefficient168 + x * res
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_173_real64


    module procedure taylor_series_sin_174_real64

        res = coefficient173 + x * coefficient174
        res = coefficient172 + x * res
        res = coefficient171 + x * res
        res = coefficient170 + x * res
        res = coefficient169 + x * res
        res = coefficient168 + x * res
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_174_real64


    module procedure taylor_series_sin_175_real64

        res = coefficient174 + x * coefficient175
        res = coefficient173 + x * res
        res = coefficient172 + x * res
        res = coefficient171 + x * res
        res = coefficient170 + x * res
        res = coefficient169 + x * res
        res = coefficient168 + x * res
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_175_real64


    module procedure taylor_series_sin_176_real64

        res = coefficient175 + x * coefficient176
        res = coefficient174 + x * res
        res = coefficient173 + x * res
        res = coefficient172 + x * res
        res = coefficient171 + x * res
        res = coefficient170 + x * res
        res = coefficient169 + x * res
        res = coefficient168 + x * res
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_176_real64


    module procedure taylor_series_sin_177_real64

        res = coefficient176 + x * coefficient177
        res = coefficient175 + x * res
        res = coefficient174 + x * res
        res = coefficient173 + x * res
        res = coefficient172 + x * res
        res = coefficient171 + x * res
        res = coefficient170 + x * res
        res = coefficient169 + x * res
        res = coefficient168 + x * res
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_sin_177_real64

end submodule imp_taylor_series_sin_real64